home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / sci / dproc126.lha / demo / v0.tst < prev    next >
Text File  |  1993-02-26  |  1KB  |  87 lines
  1. #columns %f %f %f %f %f %f %f %f
  2. #queue 1 nu snu u1 su1 ua sua amp samp
  3.  
  4. #math r1:=10.04
  5. #math r2:=103
  6.  
  7. #func u2amp v(u1,ua):=(1+r2/r1)*abs(ua/(u1*milli))
  8. #math rerr:=0.01*sqrt((1/r1)^2+(r2/r1^2)^2)/(1+r2/r1)
  9. #func su2amp sv(u1,su1,ua,sua):=v(u1,ua)*sqrt(rerr^2+(sua/ua)^2+(su1/u1)^2)
  10.  
  11. #prec 0 3
  12. #prec nu 5
  13. #prec su1 2
  14. #prec sua 2
  15.  
  16. #globtitle "Leerlauf V"
  17. #title nu $\nu$
  18. #unit nu Hz
  19. #title snu $s_\nu$
  20. #unit snu Hz
  21. #title u1 U$_1$
  22. #unit u1 mV
  23. #title su1 $s_{U_1}$
  24. #unit su1 mV
  25. #title ua U$_A$
  26. #unit ua V
  27. #title sua $s_{U_A}$
  28. #unit sua V
  29. #title amp V
  30. #title samp $s_V$
  31. #gtitle amp V$(\nu)$
  32. #rtitle amp $\bar{V_\nu}$
  33.  
  34. #using nu snu u1 su1 ua sua
  35. #make amp u2amp u1 ua
  36. #make samp su2amp u1 su1 ua sua
  37.  
  38. #slip ua
  39. 10.008/0.005/1.65/0.2/6.2/0.2
  40. 49.995//4.8
  41. 100.0/0.1/11/1.5
  42. 205.8//23
  43. 504.5//58/2
  44. 701.4//80
  45. 1024/1/110/15/6.1
  46. 2510//300/20
  47. #slip ua
  48. 5056//900//6
  49. 7581//285/15/1.9/0.15
  50. 10087/2/440/20
  51. 20061/3/210/15/0.47/0.02
  52. 15222//180//0.58
  53. 25075//230//0.44
  54. 30057//255//0.41
  55.  
  56. #logreg 3 nu amp samp
  57.  
  58. #tagfile "reglin.tag" v0
  59. #build regs "--/--/%f/%f" DPA DPSA
  60. #tagpost regs
  61.  
  62. #applog "lintst.log"
  63. #build con1 "V0: Steigung  %f4 +/- %f2" DPA DPSA
  64. #build con2 "V0: Abschnitt %f4 +/- %f2" DPB DPSB
  65. #logpost con1
  66. #logpost con2
  67.  
  68. #term latex
  69. #set corr
  70. #set caption v0
  71. #set reg
  72. #set floathead
  73. #write "v0.tab"
  74.  
  75. #term gnuplot
  76. #set logscale xy
  77.  
  78. #if eepic
  79. #set output v0.eep
  80. #endif
  81.  
  82. #ocol nu amp samp
  83. #write "v0.dta" "v0.gnu"
  84.  
  85.  
  86.  
  87.